Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/Democd1/GCTHEY.dxr/00056_LR button keydown handler.ls

Text File | 1997-06-04 | 412 b | 22 lines

on buttonselect
  global button, buttoncount
  if the keyCode = 124 then
    set button to button + 1
  end if
  if the keyCode = 123 then
    set button to button - 1
  end if
  if button = (buttoncount + 1) then
    set button to 1
  end if
  if button = 0 then
    set button to buttoncount
  end if
  if button = -1 then
    set button to buttoncount
  end if
  if button = 1 then
    button1()
  end if
end